home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap20 / dun20_3.txt < prev    next >
Encoding:
Text File  |  1997-12-18  |  4.0 KB  |  144 lines
  1. <html><head><title>Trading Card Database Editor</title></head>
  2. <body
  3. bgcolor="ffffff" text="000000" link="000080" language="VBS" onload="Init">
  4.  
  5. <object classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" 
  6.         id="ADC" height="1" width="1">
  7. </object>
  8.  
  9. <h1 align="center">Trading Card Database Editor</h1>
  10.  
  11. <p align="center"><br>
  12. <br>
  13. </p>
  14. <div align="center"><center>
  15.  
  16. <table border="0" cellpadding="5">
  17.   <tr>
  18.     <td align="right">CardID:</td>
  19.     <td><input type="text" name="CardID" size="20" datasrc="#ADC"
  20.          datafld="CardID"></td>
  21.   </tr>
  22.   <tr>
  23.     <td align="right">Year:</td>
  24.     <td><input type="text" name="YearFld" size="20" datasrc="#ADC"
  25.          datafld="year"></td>
  26.   </tr>
  27.   <tr>
  28.     <td align="right">Issuer:</td>
  29.     <td><input type="text" name="Issuer" size="20" datasrc="#ADC"
  30.          datafld="Issuer"></td>
  31.   </tr>
  32.   <tr>
  33.     <td align="right">Set Name:</td>
  34.     <td><input type="text" name="SetName" size="20" datasrc="#ADC"
  35.          datafld="SetName"></td>
  36.   </tr>
  37.   <tr>
  38.     <td align="right">Card Number:</td>
  39.     <td><input type="text" name="CardNumber" size="20" datasrc="#ADC"
  40.          datafld="CardNumber"></td>
  41.   </tr>
  42.   <tr>
  43.     <td align="right">Description:</td>
  44.     <td><input type="text" name="Description" size="50" datasrc="#ADC"
  45.          datafld="Description"></td>
  46.   </tr>
  47.   <tr>
  48.     <td align="right">Grade:</td>
  49.     <td><input type="text" name="Grade" size="20" datasrc="#ADC"
  50.          datafld="Grade"></td>
  51.   </tr>
  52.   <tr>
  53.     <td align="right">Value:</td>
  54.     <td><input type="text" name="ValueFld" size="20" datasrc="#ADC"
  55.          datafld="CardValue"></td>
  56.   </tr>
  57. </table>
  58. </center></div>
  59.  
  60. <p align="center"><input type="BUTTON" name="First" value="First"
  61. onclick="MoveFirst"> <input type="BUTTON" name="Prev" value="Prev"
  62. onclick="MovePrev"> <input type="BUTTON" name="Next" value="Next"
  63. onclick="MoveNext"> <input type="BUTTON" name="Last" value="Last"
  64. onclick="MoveLast"> <br>
  65. <br>
  66. <input type="BUTTON" name="Run" value="Requery" onclick="Requery">
  67. <input type="BUTTON" name="Update" value="Save Changes" onclick="Update">
  68. <input type="BUTTON" name="Cancel" value="Cancel Changes" onclick="Cancel"> </p>
  69.  
  70. <p>SQL UPDATE:<br>
  71. <input type="text" name="SQL" size="100"></p>
  72.  
  73. <script language="VBScript" onload="Init"><!--
  74.  
  75. SUB MoveFirst
  76.     ADC.Recordset.MoveFirst
  77. END SUB
  78.  
  79. SUB MoveNext
  80.   On Error Resume Next
  81.   ADC.Recordset.MoveNext
  82.   IF ERR.Number <> 0 THEN
  83.     ADC.Recordset.MoveLast  'If already at end of recordset stay at end.
  84.   END IF
  85. END SUB
  86.  
  87. SUB MovePrev
  88.   On Error Resume Next
  89.   ADC.Recordset.MovePrevious
  90.   IF ERR.Number <> 0 THEN
  91.     ADC.Recordset.MoveFirst  'If already at start of recordset stay at top.
  92.   END IF
  93. END SUB
  94.  
  95. SUB MoveLast
  96.   ADC.Recordset.MoveLast
  97. END SUB
  98.  
  99. 'Submits edits made and pull a clean copy of the new data.
  100. SUB Update
  101.    ssql = "Update Cards Set "
  102.    ssql = ssql + "Year = " + yearfld.value + ", "
  103.    ssql = ssql + "Issuer = '" + issuer.value + "', "
  104.    ssql = ssql + "SetName = '" + setname.value + "', "
  105.    ssql = ssql + "CardNumber = " + cardnumber.value + ", "
  106.    ssql = ssql + "Description = '" + description.value + "', "
  107.    ssql = ssql + "Grade = '" + grade.value + "', "
  108.    ssql = ssql + "CardValue = " + valuefld.value + " "
  109.    ssql = ssql + "WHERE CardID = " + CardID.Value
  110.  
  111.    SQL.value = ssql
  112.  
  113.    ADC.SQL = ssql
  114.    ADC.Refresh
  115.  
  116.     ADC.SQL = "Select * from Cards"
  117.     ADC.Refresh
  118.  
  119. END SUB
  120.  
  121. 'Cancel edits and restores original values.
  122. SUB Cancel
  123.   ADC.CancelUpdate
  124. END SUB
  125.  
  126. SUB Requery
  127.   ADC.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  128.   ADC.Connect = "DSN=Cards"
  129.   ADC.SQL = "Select * from Cards"
  130.   ADC.Refresh
  131.  
  132. END SUB
  133.  
  134. SUB Init
  135.   ADC.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  136.   ADC.Connect = "DSN=Cards"
  137.   ADC.SQL = "Select * from Cards"
  138.   ADC.Refresh
  139.  
  140. END SUB
  141.  
  142. --></script>
  143. </body></html>
  144.